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1 0 module netboot; 
if PARRRRAAASALESALELESEESEE ESE ARES SEES SELES EASA SALES E ASAE ESEE CEES ES ESSE EELS. 
' * ° 
5\ * Copyr' ht (c) 1984 * 
si . by DIGITAL Equipment Corporation, Maynard, Mass. . 
8: 0 * This software is furnished under a License and may be used and copied * 
H * only in accordance with the terms of such License and with the * 
10: 0 * inclusion of the above copyr ght notice. This software or any other * 
Wi * copies thereof ety not be provided or otherwise made available to any * 
8! * other person. No title to and ownership of the software is hereby * 
17} * transferred. * 
H « ° 
151 * The information in this software is subject to change without notice * 
16} * and should not be construed as a commitment by DIGITAL Equipment * 
4 8 oo Corporation. * 
i a7 * 
19} 8 {* DIGITAL assumes no responsibility for the use or reliability of its * 
I + software on equipment which is not supplied by DIGITAL. 4 
4 o eat ecco 
4! 0 
5: 0 {++ 
Si 8 * FACILITY: 
{ a 
4 8 . VAXELN and MicroVAX I 
0: 0 * ABSTRACT: 
{ * 
| 0 * This module contains a network pr imery bootstrap. It handles the 
: 0 ® DNA Low-level Maintenance Protocol (MOP) messages to down-Line 
rt 8 . load a VAX processor with a system memory image. 
é' 0 * AUTHOR: 
{ 
iH 4 . Len Kawell, 19-Nov-1981 
40! 0 ‘ V1.0-01 Len Kawell 23-May-1984 
41: 0 ® all a new driver entry point to stop the device when the 
rf 8 * load is complete. This makes sure that the device does not 
hg 0 * ) continue receiving messages once the 0/S is loaded. 
45. 0 
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fae we ew el we ee wl el wl ew) wl el ala ol ol ale ole alelel el olelalelolelelelol ole ele olelolel ole oleae a=) 


include 


const 


type 


Sdatalink; 


memload_code 
request_program_code 
request_load_code 
parameters_ code 


Opsys_pgmtype 


transfer_parameter 
node_namé_parameter 
node_addréss_parameter 
host_name_parameter 
host_addréss_parameter 


oon: 
Sete 


"“ 
Se 


aerverecre— COO WO TW hr—OCOrm 


maximum_retries 


ss$_normal 
ss$_bufferovf 
ss$_ctrlerr 
ss$_devinact 
ss$_nosuchnode 


MMM Se 


55; 
5535; 
23th. .255) of char; 


xmtmsg = packed record 
code: byte; 


0..2 
word = 0..6 
= ar 


“devtype: byte: 
mopver: hy, he. 
gmtype: yte; 


request_ load_ code: ( 
oadnum: byte; 
error: byte; 


end; 


rcvmsg = packed record 
code: byte; 
Loadnum: byte; 
case byte of 


memload_code: 


( 


AXA A AAAAA AO AAAS 


AAG AA AAS 


an 


AAs 
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Memory load without xfer addr } 
Request program } 

Request memory load } 

Paramters with xfer addr } 


Operating system program type } 
Transfer address parameter } 
Node name parameter } 
Node address parameter } 

Host name parameter } 

Host address parameter } 
Maximum retries } 

Success } 
Buffer overflow error } 
Device controller error } 
Device initialization error } 
No respose from load server } 
Byte } 
Word } 

1/0 buffer } 

Transmit message format} 

Code } 


Device type } 
MOP version } 
Program type } 


Load number } 
Error flag } 


Receive message format) 
Code } 
Load number } 


Memory load } 


( { 
“loadaddr: “buffer; ¢ Load address } 


mage: buffer; 


parameters _code: 


( 
perene packed array(1..2 


{ 


{ 


Image data } 


C8888 OF char: 


x2.0-08 o 
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195 end; 

: 5 bitmap = packed array(0..8192] of boolean; { PFN bitmap } 

8 function net_init(var devtype: integer; data_buffer: “anytype) :boolean; 

138 external; 

110 function net_transmit(var buff: byte_data(buff_size); buff_size: word): boolean; 

1 1 external; 

118 5 function net_receive(var buff: byte_data(buff_size); buff_size: word): boolean; 

114 «#1 external; 

115 0 

116 0 procedure net_stop; 

117 «1 external; 

118 O 

119 0 


a emeenemnemeneneeeeeneeeeeeennee=nnee ee 
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NE TBOOT 
ELN X2.0-08 


120 9 function boo$downline_ Laem ieee. eddress: integer; 
121 a uffer: me ASL ae 
1 § 1 ptn.6 tmap: “bitma 
1 1 var rontee waddress: integer 
126 «1 var node_addfess: datalink adéress: 
; F : = var node_name: varying_string(6)): integer; 
} ? : boo$downline_load = Downline load a system image 
: + : Inputs: 
131: 1 load_address - 4 mt bg physical Load address 
1 ¢| 1 data buffer - Pointer to an 8KB buffer for use by the load driver 
; ' : ¢ pfn_Bitmap - Pointer to the Page Frame Number bitmap 
, 5} : t Outputs: 
137: 1 { transfer_address - Received transfer address 
138: 1 { node_address - Received node address 
ta : ; node_name - Received node name 
141; 1 { Function value - 
126) : ; ss$_normal = Downline load completed successfully 
144; 1 { ss$_bufferovf - Load buffer overflow (ie. PFN invalid) 
145; 1 { ss$_devinact - Device initialization error 
146: 1 { ss$_ctrlerr - Device 1/0 error 
147: 1 { ss$_nosuchnode = No response from a load server 
148; 1 {--} 
149 #1 var 
150 1 status: boolean; 
151 1 retries: integer := maximum_retries; 
136 1 request_opsys: boolean := true; 
153 (1 current_loadnum: integer := 0; 
154 (1 current_devtype: integer; 
155 1 xmtbuff? xmtmsg; 
156 1 rcvbuff: rcvmsg; 
157 1 pi: integer; 
158 1 begin 
$008 Sscceeuen, Sue Lona 
CFFC 0008 spoT Roun INE LOAD, “*m<dv,iv.r2.r3.r4.r5,r6,r7.78,r9,r10,r11> 
SE FEES CE 9E 00A baat i -0118(sp),sp” 
ge 4 AC 00 bof movl Oe ap): (sp) 
B OC AC DO 13 movl £(ap) ri 
7 08 DO 017 mov l 8, 
SA 4 90 O1A movb Ae r10 
8 D4 01D clrl r8 
159 1 
160 1 rcvbuff.code := 0; ootF 
FEFA CD 94 001F clrb -0106( fp) 


{ Initialize the driver } 


_ 


[ 


NE TBOOT b-Auc- :07:00.24 VAXELN PASCAL X2.0-08 Page 5 PQ 
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164 «1 if not net_init(current_de e, data_buffer) 
08 AC DD ; ushl 08 (ap) 
| rere Cb DF 6 Bushal -0110¢ fp) 
00000000 EF 2 FB A calls #2,NET afar 
8 E 031 blbs r0,vcg. 
165 1 then 
166 1 begin 0036 
167 2 boo$downline_load +3 psS_devinact; 
59 20D4 BF 3C 034 movzwl #2004,r9 
168 2 goto return; 
0039 
016C 31 0039 brw RETURN 
169 2 end; 
003C 
0O3C veg.1: 
170 1 
171=«1 repeat 003¢ 
1B 
Vt? { Create a Request Program or Request Load message } 
175 § if request_opsys 003 
18 SA E9 003C blbc r10,vcg.2 
176 § then 
177 begin 00sF 
178 3 untiut? 8088 := request_program_code; 
FEF6 CD 08 90 SOs movb #8,-010A( fp) 
179 3 unthult .doxtyee := current_devtype; 
FEF7 CD FEFO CD 90 6 44 movb -0110( fp) ,-0109( fp) 
180 3 eo Bhs 72 1; 
FEF8 CD 01 90 4B movb #1,-0108( fp) 
181 3 xatbuff.pontype := opsyS_pgmtype; 
FEF9 CD 02 90 050 movb #2,-0107( fp) 


182 3 end 5 
OE 11 $a brb veg.3 
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ELN X2.0-08 2S=RAY=1984 19:05:40°-- DISKSSTARUORKOS7EGAMACHE .UVIROM. VABSAETB(3) 


0057 vcg.2: 
183 ls 
ibe 5 ap begin 
0057 
185 3 pemees  § request_load_code; 
FEF6 CD OA 90 57 movb #A,-010A( fp) 
186 3 peratyiog 8 := current_loadnum; 
FEF7 CD 58 90 af movb r8,-0109( fp) 
187 3 monebhend * := 0; 
8 61 
FEF8 CD 94 061 clrb -0108( fp) 
188 3 end; 
0065 
0065 veg.3: 
189 
i ; { Transmit the message and retry if it fails. } 
192 while not nat treneg? Cuntbult. size(xmtbuff)) do 
0065 pushl 
FEF6 CD 9F 067 pushab fOI0A 
00000000* fr 9s FB o88 calls . iNET Fransmir 
E8 0072 blbs veg.4 
193 2 begin 
0075 
194 3 retries := retries - 1; 
Oore 
57 07 075 decl r7? 
195 3 if retries <= 0 
EC 14 077 bgtr vceg.3 
1 then 
199 : begin 
079 
198 4 bogtgount ine, load := ss$_ctrlerr; 
59 54 BF 9A 79 movzbl #54,r9 
199 & 90f9., return; 
0128 31 $69 brw RETURN 


200 4 end; 
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FEFA 68 oF 
00000000* EF 02 FB 
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0080 


0080 veg.4: 


{ If last message received was a Parameters message, then load done } 
if rcvbuff.code = _ code 


end; 


52 rere f oa 4 rent re 


, gape 
ne 
008 49 sy ONE 
then 
goto done; 
008D 


{ Receive a response message } 
status := mat posal ve treveutt, size(rcvbuff)); 


7E 0106 BF 3C movzwl #10 rth 9 


08D 
092 pushab -0106(f 
096 calls #2,NET_RECEIVE 


; If a message successfully received and it is either a Memory Load } 
or a Parameters message, process it. } 


if status and 


5 +H 09D blbc r0 ¥c9s9 
52 FEFA cp A OA movzbl O10 6lfp) 2 
0 ¢ D1 OA cmpl 
2 13 OA8 beql vS9, 
14 52 D1 OAA cmpl x 
4C 12 bneq vcg.9 


OAD 

OAF vcg.5: 

((rcvbuff.code = memload_code) or 
(rcvbuff.code = parametérs_code)) 


then 
begin 
OOAF 
if (rcvbuff.loadnum = current_loadnum) 
52 FEFB CD 9 AF movzbl -0105(fp),r2 
8 2 Bt 4 capl r2.r8 4 
4 1 7? beql vg9. 
§ Dd 9 tstl r 
1 bneq vcg.8 


* 
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244 


245 


T 
-0-08 


rere 
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OOBD vcg.6: 
or (rcvbuff.loadnum = 0) 
then 
begis 
0BD 
current_loadnum := (rcvbuff.loadnum + 1) mod 256; 
52 FEFB ; Ey Oee movzbl * pryscuze 
nc r 
58 C movzbl r2,r8 
{ If memory data, then move to proper memory location } 
if fe yout .code = memload_code 
52 FEFA CD 9A C7 oe 106(fp),r2 
02 53 poe a+ te ‘3 : 
25 12 CF bneq veg. 
then 
begin 
00D1 


; Compute memory location for data and check } 
that page is valid in page frame bitmap. } 


rcvbuff.loadaddr::integer := 
FEFC CD 6E€ CO $001 addi2 (sp) ,-0104( fp) 
rcvbuff.loadaddr::integer + load_address; 
if not pfn_bitmap* 


00D6 
52 FEFC CD 00000200 HH C7 it divl3 . 00, 79104 fp). r2 
08 68 52 £0 0E0 bbs (11) ,veg.? 
Crcvbuff.loadaddr::integer div 512) 
then 
begin 
O0E4 
66 boo$downline_load := ss$_bufferovf; 
59 0600 BF 3C $bEe movzwl #600,r9 
goto return; 
44 
00BC 31 E9 brw RETURN 
end; 


SOE vcg.?7: 


‘fe 


.0-08 
AMACHE .UV1ROM. VMBJ 


mor 
aries 
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4 
“3 H ec rcvbuff.loadaddr* := rcvbuff. image; 
FEFC DD FFOO CD 0100 BF 28 Spee moveS #100,-0100( fp) ,a-0104( fp) 
248 5 , end; 
Sore veg.8: 
249 4 oni 
250 3 pope 9g := false; 
SA 94 F6 cirb r10 
251 3 end , 
FF41 31 O0r8 brw vcg.1 
OFB vcg.9: 
5 else 
$38 5 begin 
OOFB 
54 
3 { Decrement the retry count. If it is zero quit. } 
§ retries := retries - 1; 
57 07 OFB decl r7 
258 3 if retries <= 0 
315 OFD ble en.2 
FFSA 3) OOF ore tséeel 
102 gen.2: 
59 ; then 
60 begin 
102 
61 4 
$6 4 Return device error status. If no reponse was ever } 
65 4 received from a load server, return no response } 
r¢) 2 from server status. 
66 4 bo if wnline_load := ss$_ctrlerr; 
59 54 BF 9A bt ; movzbl #54,r9 
267 4 if . rei 
A 1 blbs r10,gen.3 
oae 5f i tw RETURN. 
10C gen.3: 


268 4 then 


NETBORT og sE-Adectgge 18:07:99. 


269 4 boo$downline_load := ss$_nosuchnode; 
59 028C BF 3C 818¢ movzwl #28C,r9 
270 4 “aneenerns 
0094 31 111 brw RETURN 
271 4 ordi 4 
end 
0114 
until false; 
0114 


done: 


gis 
114 DONE: 
{ Get the load parameters } 


pi := 1; 
Orie 
56 01 DO 114 mov l #1,°6 
transfer_address := -1; 17 
5A 10 BC DE a1? moval 31 0tae? r10 
6A 01 CE 118 mnegl 05 
node_name := ''; ie 
58 18 Oe BF Oli moval a18(ap).r8 
B4 12 clrw (r8) 
with rcvbuff do 
0124 
repeat 124 
57 14 BC DE 0184 moval a14(ap),r7 
128 vceg.10: 


{ Scan parameter List for parameters. } 
case ord(param[pi]) 


52 eee bees 3 al et 9103 (fg) Cre), ore 


ret et 


-24 Mert N_ PASCAL 
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NE TBOOT 


ELN X2.0-08 


oe 


run 


5A 11 $138 seman * 4 


ROSE NERS _SOreneter) . 
b18a a case label: 
node_name : 


52 wy i 


68 B 
02 AB FEFD CD46 gs 28 
F 11 


movzbl 
cvtlw 


— at ot hf 


nese sderese _porensrer: 
155 a case Label: 


beni 
— €6(n8 


substr(param, pi + 


kK 11 
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vcg.14 


2, ord(param[pi + 1))); 
ere 
.(r8) 


r 
#6,(r8) 
veg 


x 
#6,(r8) 


(r8) ,-0103( fp) Cr6],02(r8) 
veg. 14 


f If only a 2 byte node address sent, gee it using the } 
DECnet Ethernet high-order address. 


if eed tt + 1]) > 2 


-0104(fp)Cr6],r2 
r2,#2 
veg.12 


#6,-0103( fp) Cr6],(r7) 
vcg.13 


substr(param, pi + 2, size(node_address)) 


52 FEFC $046 9A 155 movzbl 
02 52 D1 158 cmpl 
91 15E bleq 
then 
no fs ddress := 
67 FEFD CD46 06 28 ig movc3 
10 11 16 brb 
169 veg.12: 
else 
begin 
169 
node_address 
Ofe8 
67 FE92 CF 06 3 169 movc3 


1 
1 


F movab 


" Oe A 8 85 5 movw 


«= **(170,00,04,00,00,00,00.00); 
#6,$CODE,(r7) 
Pe fag exe 5, 2) := substr(param, pi + 2, 2); 


-0103( fp) Cr6).r2 
(r2),04(r7) 


ree 


NETB 
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O00 
Nm—O0@ 


339 


328 


T 
-0-08 


5 


ro oe 


, 


ou 
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“Bing veg.13: 


$ f the node address does not have an area address, set } 
t to area 1. 


if ord(sub Fr inede_edéress. 6, 1) <4 
52 8 A? 9A 17 wovebt 05(r7),r2 
4 1 4 mpl r2,€4 
18 bgeq vcg.14 
then 
PT ean vom 6, 1) := 
1 ; addi2 #4, r 
05 5 83 § 1 movb r2.05(r7) 
4 chr(ord(substr(node_address, 6, 1)) + 4); 
end; 
0188 
09 11 189 brb vceg.14 


transfer_parameter: 
0188 
018B a case label: 


transfer_a dress := substr(param, pi + 1, 4):: integer; 
52 FEFC coeg 4 188 movab cO104 i top rel.r2 
6A 62 D 191 movl (r2),(r 10) 
194 vcg.14 
end; 
pi := pi + ord(param[pi + 1]) + 2; 
52 FEFC CD46 9A 194 movzbl 0106 (fp) Cré]. r2 
; 56 CO 19A addl 
56 52 02 C1 19D addl r “ .ré 
until transfer ste >= 0; 
5 IAI tstl (r10) 
1A3 blss vcg.10 
boo$downline_load := ss$_n rag 
59 01 DO 6 1A movl #1,°9 
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329 1 return: 


ant: RETURN: 


Wwiwws 
WAG 
Wnro 
se 


net_stop; 


1A 
00000000* EF 00 FB gag calls #0,NET_STOP 
338 1 
> % end; 
1AF 
50 59 DO 1AF mov r9,r0 
04 186 ret 
18 
$38 0 
37 (0 end; , 


{ Make sure the device is stopped } 
EPASCAL/MACH/L1S=.!5$:/0BJ=0BJ$: VMBS$:NETBOOT+ELNS$:RTLOBJECT/LIB 
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